home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / TODAY.SAB < prev    next >
Text File  |  1991-07-05  |  2KB  |  58 lines
  1. set pointer #1 eo1 for today sorted by add.code
  2. while eo1 = 0 then
  3.     set v code to add.code in #1
  4.     set pointer #2 end for cur.mast where add.code = .code
  5.     set v code2 to add.code in #2
  6.     set v ptd to pdtodate in #2
  7.     set v balrent to bal.rent in #2
  8.     set v balothe to bal.othe in #2
  9.     set v balwat to bal.wate in #2
  10.     set v pastdue to past.due in #2
  11.     set v secdep to sec.dep in #2
  12.     set v how to cach in #1
  13.     set v otherpd to other.pd in #1
  14.     set v rentpd to rent.pd in #1
  15.     set v watpd to wat.paid in #1
  16.     set v pastpd to past.pd in #1
  17.     set v otherch to other.ch in #1
  18.     set v waterch to water.ch in #1
  19.     set v secpd to sec.pd in #1
  20.     set v pdtot to tot.pd in #1
  21.     if pdtot > 0 then
  22.     change last.amt to .pdtot in #2
  23.     endif
  24.     if secpd <> 0 then
  25.     change sec.dep to (.secdep + .secpd) in #2
  26.     endif
  27.     if rentpd <> 0 then
  28.     change bal.rent to (.balrent - .rentpd) in #2
  29.     change pdtodate to (.ptd + .rentpd) in #2
  30.     endif
  31.     if otherpd <> 0 then
  32.     change bal.othe to (.balothe - .otherpd) in #2
  33.     change pdtodate to (.ptd + .otherpd) in #2
  34.     endif
  35.     if watpd <> 0 then
  36.     change bal.wate to (.balwat - .watpd) in #2
  37.     endif
  38.     if pastpd <> 0 then
  39.     change past.due to (.pastdue - .pastpd) in #2
  40.     change pdtodate to (.ptd + .pastpd) in #2
  41.     endif
  42.     if waterch <> 0 then
  43.     change bal.wate to (.balwat + .waterch) in #2
  44.     endif
  45.     if otherch <> 0 then
  46.     change bal.othe to (.balothe + .otherch) in #2
  47.     endif
  48.     if how = "charge" then ; goto ape ; endif
  49.     change activity to .#DATE in #2
  50.     label ape
  51.     next #1 eo1
  52. endwhile
  53. append today to transact where add.code exists
  54. DELETE ROWS FROM today WHERE ADD.CODE EXISTS
  55. del row fro today whe add.code fails
  56. return
  57.  
  58.